home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / lumpcls.cls < prev    next >
Encoding:
Visual Basic class definition  |  1998-12-15  |  857 b   |  33 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsLumpClass"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Option Explicit
  13. Private rLumpBytes() As Byte
  14. Public LumpSize As Long
  15. Public LumpName As String
  16. Public LumpPosition As Long
  17. Public LumpType As enLTy
  18.  
  19. Public Property Get LumpByte(Index As Long) As Byte
  20. If Index > LumpSize Then Exit Property
  21. LumpByte = rLumpBytes(Index)
  22. End Property
  23. Public Property Let LumpByte(Index As Long, Val As Byte)
  24. rLumpBytes(Index) = Val
  25. End Property
  26. Public Sub LumpBytes(rByteArr() As Byte)
  27. rByteArr = rLumpBytes
  28. End Sub
  29.  
  30. Public Sub SetBytes(Bytes() As Byte)
  31. rLumpBytes = Bytes
  32. End Sub
  33.